(import (rnrs))

(define open-input-port open-input-file)

(define standard-input (current-input-port))

(define (print x) (display x) (newline))

(define-syntax mapply
 (syntax-rules ()
  ((mapply f xs arg ...)
   (map (lambda (x) (f x arg ...)) xs))))

